home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 23.zip / BS1 part 23 / Prof page II cgfonts 5.adf / Install_CenturySchlbk < prev    next >
AmigaDOS Script File  |  1990-02-01  |  2KB  |  87 lines
  1. .KEY dest
  2. .BRA {
  3. .KET }
  4.  
  5. ; Install_Font - Install CGFonts onto a hard drive.
  6. ;
  7. ; Inputs:
  8. ;    dest   Directory to install Font into
  9. ;
  10.  
  11. ASSIGN CGFInstOrig: ""            ; Save initial directory
  12.  
  13. ; Start with a fresh copy, to avoid any screwups
  14. IF EXISTS RAM:CGFInstall
  15.    DELETE RAM:CGFInstall/#? quiet
  16. ELSE
  17.    MAKEDIR RAM:CGFInstall
  18. ENDIF
  19.  
  20. CD ram:CGFInstall   ; Search it without adding it to path
  21. C:COPY C:Copy    RAM:CGFInstall
  22. Copy   C:Assign  RAM:CGFInstall
  23. Copy   C:Echo    RAM:CGFInstall
  24. Copy   C:If      RAM:CGFInstall
  25. Copy   C:Else    RAM:CGFInstall
  26. Copy   C:Endif   RAM:CGFInstall
  27. Copy   C:Makedir RAM:CGFInstall
  28. Copy   C:Failat  RAM:CGFInstall
  29.  
  30. COPY CGFonts_5:InstUtil     RAM:CGFInstall
  31.  
  32. ;
  33. ; Make sure that the destination exists and is a directory
  34. ;
  35. IF NOT EXISTS {dest$CGFonts:}
  36.    ECHO "*N ****** Couldn't find drawer {dest$CGFonts:} *******N"
  37.    SKIP wrapup
  38. ENDIF
  39.  
  40. INSTUTIL isdir {dest$CGFonts:}
  41. IF WARN
  42.    ECHO "*N ****** {dest$CGFonts:} is not a drawer! *******N"
  43.    SKIP wrapup
  44. ENDIF
  45.  
  46. INSTUTIL ask -dy "Install CenturySchlbk onto {dest$CGFonts:} [Y/N]? Y"
  47. IF warn
  48.    ECHO "*N Installation aborted!*N"
  49.    SKIP wrapup
  50. ENDIF
  51.  
  52. ;
  53. ; finally do the actual installation:
  54. ;
  55. FAILAT 21
  56. ECHO "*N --------------------------------------------------------------------"
  57. ECHO "*N    Copying CenturySchlbk to {dest$CGFonts:} ..."
  58. ECHO "*N --------------------------------------------------------------------"
  59. COPY CGFonts_5:CenturySchlbk to {dest$CGFonts:} quiet
  60. IF ERROR
  61.    SKIP wrapup
  62. ENDIF
  63. ;
  64. ; make sue that there is a PS subdirectory on CGFonts:
  65. ;
  66. IF {dest$CGFonts:} EQ "CGFonts:"
  67.    IF NOT EXISTS CGFonts:PS
  68.       MAKEDIR CGFonts:PS
  69.    ENDIF
  70. ENDIF
  71.  
  72. ECHO "*N --------------------------------------------------------------------"
  73. ECHO "*N*N Installation of CenturySchlbk complete."
  74. ECHO "*N ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*N"
  75.  
  76. ;
  77. ; Clean up
  78. ;
  79. LAB wrapup
  80.  
  81. CD CGFInstOrig:
  82. DELETE >NIL: RAM:CGFInstall all quiet
  83. Assign CGFInstOrig:
  84.  
  85. CGFonts_5:InstUtil ask "Press RETURN."
  86.  
  87.